home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WinNT IoPageLock.xpl < prev    next >
Text File  |  2002-01-04  |  3KB  |  93 lines

  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="System\Memory\"
  5. "NAME"="I/O Lock Pages"
  6. "VERSION"="2.13"
  7. "OSVERSION"="010101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="IO Size"
  10. "DESCRIPTION 1"="This option allows you to change the maximum number of bytes that can be locked for I/O (Input/Output) operations."
  11. "DESCRIPTION 2"="If you have some extra RAM and an active file system, you can speed up file system activity by increasing this setting beyond the default 512 KB."
  12. "DESCRIPTION 3"="NOTE: Please check only one single box."
  13. "WARNING"="1"
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="Thanks to CptSiskoX for his help!"
  18. "COMMENT 2"="Thanks to John Hansen [sasjwh@wnt.sas.com] for the Windows 2000 part!"
  19. "COMMENT 3"="Thanks to Thomas Koschate [koschate@bigfoot.com] for the CDR bug-notice."
  20. "COMMENT 4"="Thanks to Nostradamus [mailto:nostradamus-@gmx.net] for the plugin supplement."
  21.  
  22.  
  23. sV1="HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Session Manager\Memory Management\IoPageLockLimit" 'DW 
  24. Sub Plugin_Initialize 
  25.  Call SetUIElement(1,"(1) 512 KB (Default)")
  26.  Call SetUIElement(2,"(2) 4096 KB (for 32+ MB computers)")
  27.  Call SetUIElement(3,"(3) 8192 KB (for 64+ MB computers)")
  28.  Call SetUIElement(4,"(4) 16384 KB (for 128+ MB computers)")
  29.  Call SetUIElement(5,"(5) 32768 KB (for 160+ MB computers)")
  30.  Call SetUIElement(6,"(6) 65536 KB (for 256+ MB computers)")
  31.  Call SetUIElement(7,"(7) 131072 KB (for 512+ MB computers)")
  32.  
  33.  i=RegReadValue(sV1)
  34.  
  35.  if IsEmpty(i)=false then
  36.     if i=0 then     Call SetUiElementEx(1,true)
  37.     if i=4096 then  Call SetUiElementEx(2,true)
  38.     if i=8192 then  Call SetUiElementEx(3,true)
  39.     if i=16384 then Call SetUiElementEx(4,true)
  40.     if i=32768 then Call SetUiElementEx(5,true)
  41.     if i=65536 then Call SetUiElementEx(6,true)
  42.     if i=131072 then Call SetUiElementEx(7,true)
  43.  else
  44.     Call SetUiElementEx(1,true)
  45.  end if
  46. End Sub
  47.  
  48.  
  49. Sub Plugin_CheckData(ElementIndex)
  50. End Sub
  51.  
  52.  
  53.  
  54. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  55.  e=0
  56.  for i=1 to 7
  57.      if GetUIElementEx(i)=true then e=e+1
  58.  next
  59.  
  60.  if e>1 then 
  61.     Call MsgError("Please select only one item!")
  62.  else
  63.    i=empty
  64.    if GetUIElementEx(1)=true then i=0
  65.    if GetUIElementEx(2)=true then i=4096
  66.    if GetUIElementEx(3)=true then i=8192
  67.    if GetUIElementEx(4)=true then i=16384
  68.    if GetUIElementEx(5)=true then i=32768
  69.    if GetUIElementEx(6)=true then i=65536
  70.    if GetUIElementEx(7)=true then i=131072
  71.  
  72.    if isempty(i)=false then
  73.       if i=0 then
  74.          If RegValueExists(sV1) then Call RegDeleteValue(sV1)
  75.       else
  76.          Call RegWriteValue(sV1,i,2)
  77.       end if
  78.  
  79.       Call Restart()
  80.    else
  81.       Call MsgError("Please select a value!")
  82.    end if
  83.  end if
  84.  
  85. End Sub
  86.  
  87.  
  88. Sub Plugin_Terminate 
  89. End Sub
  90.  
  91.  
  92.  
  93.